home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
cube.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
4KB
|
82 lines
%%HP: T(3)A(D)F(.);
@ CUBE, by Paul Lancaster
DIR
CUBE
\<< " A B C D" DUP 'M' STO
" E F G H" DUP 'T' STO
" I J K L" DUP 'W' STO
" M N O P" DUP 'F' STO 1 15
START RAND 8 * CEIL
CASE DUP 1 ==
THEN DROP ONE
END DUP 2 ==
THEN DROP TWO
END DUP 3 ==
THEN DROP TRE
END DUP 4 ==
THEN DROP FOUR
END DUP 5 ==
THEN DROP FIVE
END DUP 6 ==
THEN DROP SIX
END DUP 7 ==
THEN DROP SEVN
END DROP EIGT
END
NEXT { ONE TWO TRE FOUR FIVE SIX TRE FOUR FIVE SIX SEVN EIGT } MENU
\>>
HELP
\<< INST.GR PICT STO { } PVIEW
\>>
ONE
\<< F 3 8 SUB F 1 2 SUB + 'F' STO 4 DROPN M T W F
\>>
TWO
\<< W 3 8 SUB W 1 2 SUB + 'W' STO 4 DROPN M T W F
\>>
TRE
\<< T 3 8 SUB T 1 2 SUB + 'T' STO 4 DROPN M T W F
\>>
FOUR
\<< M 3 8 SUB M 1 2 SUB + 'M' STO 4 DROPN M T W F
\>>
FIVE
\<< C1 B 1 2 SUB A 3 8 SUB + 'M' STO
C 1 2 SUB B 3 8 SUB + 'T' STO
D 1 2 SUB C 3 8 SUB + 'W' STO
A 1 2 SUB D 3 8 SUB + 'F' STO 4 DROPN M T W F
\>>
SIX
\<< C1 A 1 2 SUB B 3 4 SUB + A 5 8 SUB + 'M' STO
B 1 2 SUB C 3 4 SUB + B 5 8 SUB + 'T' STO
C 1 2 SUB D 3 4 SUB + C 5 8 SUB + 'W' STO
D 1 2 SUB A 3 4 SUB + D 5 8 SUB + 'F' STO 4 DROPN M T W F
\>>
SEVN
\<< C1 A 1 4 SUB B 5 6 SUB + A 7 8 SUB + 'M' STO
B 1 4 SUB C 5 6 SUB + B 7 8 SUB + 'T' STO
C 1 4 SUB D 5 6 SUB + C 7 8 SUB + 'W' STO
D 1 4 SUB A 5 6 SUB + D 7 8 SUB + 'F' STO 4 DROPN M T W F
\>>
EIGT
\<< C1 A 1 6 SUB B 7 8 SUB + 'M' STO
B 1 6 SUB C 7 8 SUB + 'T' STO
C 1 6 SUB D 7 8 SUB + 'W' STO
D 1 6 SUB A 7 8 SUB + 'F' STO 4 DROPN M T W F
\>>
C1
\<< M 'A' STO T 'B' STO W 'C' STO F 'D' STO
\>>
CST 0
INST.GR
GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000757065370E42A3892830242998DDD000002510155101A6B08A28202A654584410000277015370DEAA38118302EE5C98CD000002510155109A2A08218002AA54194410000257067370EA2A3811880EA295D8C510000000000000000000000000000000000000020505050375057507570520BB993B3000050502050555055505520D288AAA801000070707070352025507520D388A99B010000504020405550255015205388AAA801000050405040375027701720520BBAA331000000000000000000000000000000000000007337303505652701D5A28475600000000055515055051DA00B5CA28215100000000053573032052DB605DDB281722000000000555150520545B40154B2821240000000007537503207352701D5A38472310000000000000000000000000000000000000000009EA02A220E42D1CDD1CD18D545490E600052A02A2204AA4084514504454D6B0AA0003E40AA2204E6C184D14D1445455F0A600052406B2204AA408450450445454D0AA0009E402AEE04A2D18C50C508DDD5490EA00000000000000000000000000000000000003670770371184A188EAE0EE0EAE0E2D000212051055114DA28DAA204A04A2026510022205703551CDB28AAAE04A04EE0EE5100242051055B145B288A4204A04A202A51007320710571145A188E4E04E04AE0E2D00000000000000000000000000000000000000000075D1855067590E2770000000000000000015504450115B02A020000000000000000075D18420275F0EA620000000000000000019400550412D02A420000000000000000019C1C45037290E2720000000000000000000000000000000000000000000000775300200003000600030000000000000015550050000500010005000000000000007553707000030001000500000000000000155500500005000100050000000000000017750050000300060003000000000000000000000000000000000000000000000000737000700007000E000A000000000000002510001000010001000A00000000000000237770700007000D000E000000000000002510001000010009000A00000000000000257000700001000E000A00000000000000000000000000000000000000000000000071D10040000400090002000000000000002151004000040005000200000000000000255DD140000400030002000000000000002B5100400005000500020000000000000021D1004000070009000E00000000000000000000000000000000000000000000000079E00022008400070007000000000000005B200063008500050005000000000000005FEEE0A2008700050007000000000000005D2000220086000500010000000000000079E00022008400070001000000000000000000000000000000000000000000000000
M 0
T 0
W 0
F 0
D 0
C 0
B 0
A 0
END